home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Gamer Resource Kit / Hardcore Gamer Resource Kit - Disc 2.iso / Pc / D_E / ELFISH.ZIP / EF480.EXE / INST_480.PRG < prev    next >
Text File  |  1994-03-15  |  11KB  |  527 lines
  1. ; =====================================
  2. ; ===  ELFISH INSTALLATION PROGRAM  ===
  3. ; ===            06-23-93           ===
  4. ; =====================================
  5. @prod = "ELFISH"         ; name of the product
  6. @path = "C:\ELFISH"      ; starting destination subdirectory
  7. @source = "DATA"         ; source subdirectory
  8. @prefix = "XX"           ; DLL-prefix
  9. @bakext = "EF~"          ; BAK-file name extension
  10. @mode480 = 1
  11. ; =====================================
  12. #HEADER EL-FISH INSTALLATION PROGRAM
  13. #AIUTO  << ELFISH >>
  14. #VERSION (C) AnimaTek (RUSSIA) *** 1993
  15. ; =====================================
  16. #DISKNAME ^
  17. ELFISH.$07   "Install Disk # 1"
  18. TANGER.$02    "Disk # 2"
  19. STONES.$01    "Disk # 3"
  20. EFBGR.$02    "Disk # 4"
  21. #
  22. #FULLLIFT
  23. ; =====================================
  24. :START
  25. @PACKMODE = 2         ; starting packing bitmode:
  26.                 ; xx1 - regular VGA
  27.                 ; x1x - HI-resolution SVGA
  28.                 ; 1xx - sound-card support
  29.  
  30. #GOSUB HARDWARE_TEST  ; test mouse , i386, i387, VGA, and RAM > 3700K.
  31.                 ; Changes @PACKMODE
  32. ; =====================================
  33. #AIUTO KEYS:  - select; \"Enter\" - confirm
  34.  
  35. :START1
  36. #TEXT 0 3 53
  37.  
  38. ~GREETINGS!
  39. ~Welcome to the El-Fish
  40. ~Installation program
  41.  
  42. ~You are installing the 640 x 480 screen
  43. ~mode El-Fish version.
  44.  
  45. ~ATTENTION !
  46. ~Be sure that your video card supports this mode
  47. ~and contains at least 1 megabyte (MB) of video RAM.
  48. ~See the addendum for more details.
  49.  
  50. #
  51. #MENU 0 -1 0 [ WHAT DO YOU WANT TO DO? ]
  52.      START THE INSTALLATION
  53.      ABORT THE INSTALLATION
  54. #
  55. #TEXTOFF
  56. #IF @reply = 0 GOTO START1
  57. #IF @reply = 27 #ABORT
  58. #IF @reply = 2 #ABORT
  59. #IF @reply = 27 GOTO START1
  60.  
  61.  
  62. #GOSUB ASKOFMODE
  63.  
  64. ; ===== Greating and Ask for User name
  65. :ENTRY_OWNER
  66. #PROMPT ""
  67. #GETLINE @owner 0 3 57 [ EL-FISH ]
  68.  
  69. ~Please introduce yourself by entering
  70. ~your name below.
  71. ~The name you enter will identify you as
  72. ~the author of each fish, tank or object
  73. ~you create in El-Fish.
  74.  
  75. #
  76.  
  77. #PROMPT ""
  78. #IF @reply = 27 #ABORT
  79. #IF @reply = 27 goto ENTRY_OWNER
  80. #if @owner = "" goto ENTRY_OWNER
  81.  
  82. ; ==== Checking of the video-card presence
  83. @PACKMODE += 4
  84. #if @PACKMODE & 1 GOTO INSTALL_PREPARE
  85.  
  86. ; =====================================
  87. ; ===     Installation Process      ===
  88. ; =====================================
  89. :INSTALL_PREPARE
  90. #IF @PACKMODE ^ 1 @PACKMODE += 2
  91. #IF @PACKMODE & 1 @PACKMODE -= 2
  92.  
  93. #IF @PACKMODE & 2 GOTO hiinstall
  94.   @message = INSTALLING REGULAR RESOLUTION VERSION
  95. #GOTO TAKE_DESTINAT
  96. :hiinstall
  97.   @message = INSTALLING HIGH-RESOLUTION VERSION
  98.  
  99. ; ==== Take the distination Subdirectory
  100. :TAKE_DESTINAT
  101. #PROMPT EL-FISH DESTINATION PATH
  102. #AIUTO @message
  103. #BEEP
  104.  
  105. ; === Get destination path
  106. :GET_DST_PATH
  107. #GETPATH @path 0 3 0 [ ENTER EL-FISH PATH ]
  108.  
  109. ~Please enter the drive and directory
  110. ~where you want El-Fish to be
  111. ~installed, then press "Enter".
  112.  
  113. ~To stop the installation, press "Escape".
  114.  
  115. #
  116. #if @reply=27 #ABORT
  117. #if @reply=27 GOTO GET_DST_PATH
  118.  
  119. #CHECKDIR @path
  120. ; Returns -1 - incorr subdir name
  121. ; 0 - O.K.
  122. ; 1 - subdir is just exist
  123.  
  124. #IF @reply = 0 GOTO RUN_INSTALLATION
  125. #IF @reply = -1 GOTO ILLEGAL_SUBDIR
  126.  
  127. #AIUTO KEYS:  - select; \"Enter\" - confirm
  128.  
  129. #TEXT 0 3 53
  130.  
  131. ~This directory already exists!
  132.  
  133. #
  134. #MENU 0 -1 0 [ WHAT DO YOU WANT TO DO? ]
  135.        CHOOSE ANOTHER DIRECTORY
  136.        OVERWRITE THIS DIRECTORY
  137.         ABORT THE INSTALLATION
  138. #
  139. #TEXTOFF
  140. #IF @reply = 3 #ABORT
  141. #IF @reply = 3 GOTO TAKE_DESTINAT
  142. #IF @reply = 1 GOTO TAKE_DESTINAT
  143. #IF @reply = 2 GOTO RUN_INSTALLATION
  144. #ABORT
  145.  
  146. :ILLEGAL_SUBDIR
  147. #AIUTO KEYS:  - select; \"Enter\" - confirm
  148.  
  149. #TEXT 0 3 53
  150.  
  151. ~This El-Fish PATH is ILLEGAL!
  152.  
  153. #
  154. #MENU 0 -1 0 [ WHAT DO YOU WANT TO DO? ]
  155.        CHOOSE ANOTHER DIRECTORY
  156.         ABORT THE INSTALLATION
  157. #
  158. #TEXTOFF
  159. #IF @reply = 2 #ABORT
  160. #GOTO TAKE_DESTINAT
  161.  
  162.  
  163. ; ======== INSTALLATION EXECUTING
  164. :RUN_INSTALLATION
  165. #PROMPT "INSTALLING EL-FISH"
  166. #AIUTO KEYS: Press \"Esc\" to abort
  167.  
  168. #MKDIR ; make path directory
  169. #TEXT 0 0 0
  170.  
  171. ~COPYING
  172. ~RECONFIG.EXE
  173.  
  174. #
  175. #COPY #"INST_480.EXE"  >RECONFIG.EXE
  176. #TEXTOFF
  177.  
  178. #TEXT 0 0 0
  179.  
  180. ~COPYING
  181. ~INFO.EXE
  182.  
  183. #
  184. #COPY #"INFO.EXE"  >
  185. #TEXTOFF
  186.  
  187. #TEXT 0 0 0
  188.  
  189. ~COPYING
  190. ~BOOTDISK.BAT
  191.  
  192. #
  193. #COPY #"BOOTDISK.BAT"  >
  194. #TEXTOFF
  195.  
  196. #TEXT 0 0 0
  197.  
  198. ~COPYING
  199. ~AUTOEXEC.000
  200.  
  201. #
  202. #COPY #"AUTOEXEC.000"  >
  203. #TEXTOFF
  204.  
  205. #TEXT 0 0 0
  206.  
  207. ~COPYING
  208. ~CONFIG.000
  209.  
  210. #
  211. #COPY #"CONFIG.000"  >
  212. #TEXTOFF
  213.  
  214. #TEXT 0 0 0
  215.  
  216. ~COPYING
  217. ~CONFIG.001
  218.  
  219. #
  220. #COPY #"CONFIG.001"  >
  221. #TEXTOFF
  222.  
  223. #TEXT 0 0 0
  224.  
  225. ~COPYING
  226. ~BOOTSTAC.BAT
  227.  
  228. #
  229. #COPY #"BOOTSTAC.BAT"  >
  230. #TEXTOFF
  231.  
  232. #TEXT 0 0 0
  233.  
  234. ~COPYING
  235. ~READ.ME
  236.  
  237. #
  238. #COPY #"READ.ME"  >
  239. #TEXTOFF
  240.  
  241. ; ----------
  242. #CHDIR @path
  243.  
  244. #UNPACK 100000 ELFISH.PKD
  245.  
  246. ; =====================================
  247. ; == Final Post-installational Dialogue
  248. ; =====================================
  249. @message KEYS:  Choose the proper card and press \"Enter\"
  250. #GOSUB  CHOOSE_SOUNDCARD
  251. #GOSUB  CHOOSE_VIDEOCARD
  252. #PROMPT ""
  253.  
  254. #GOSUB  MAKE_AUTOEXEC
  255. #GOSUB  MAKE_CONFIGSYS
  256.  
  257. ; ==== End of Work
  258. :FINISH
  259. #CHDIR                ; change final directory
  260. #SETUP "ELFISH.INS"   ; write the ELFISH.INS user name
  261.  
  262. #BEEP
  263.  
  264. #IF @errors = 0 GOTO Final
  265. #DELETE "INSTALL.ERR"
  266. ;#TOFILE "INSTALL.ERR"
  267. ;
  268. ;            Installation of El-Fish is complete.
  269. ;         You may need to modify your AUTOEXEC.BAT or
  270. ;         CONFIG.SYS files for El-Fish to run properly.
  271. ;               See the Addendum for details.
  272. ;
  273. ;#
  274.  
  275. ;#PROMPT "WARNING!!! "@errors" ERROR DETECTED"
  276. ;#FILELIST 67 20 "INSTALL.ERR"
  277. #GOSUB SEE_READ_ME_FILE
  278. #EXIT
  279. ;-------------------------
  280.  
  281. ; ==== Final Message
  282. :Final
  283. #PROMPT "FINished... I mean, FIniSHed"
  284. #TEXT ^ 0 3 67
  285.  
  286. ~El-Fish has successfully installed.
  287. ~If you have any problem running EL-FISH
  288. ~on your computer the READ.ME file can help you.
  289. ~(But only if you read it...........)
  290.  
  291. ~Don't smell fish--PLAY EL-FISH.
  292.  
  293. ~Press any key to continue.
  294.  
  295. #
  296.  
  297. #GOSUB SEE_READ_ME_FILE
  298.  
  299. ; #RESTART  ; reboot system
  300. :quit
  301. #EXIT
  302.  
  303. ;┌─────────────────────────────────────────────────────┐
  304. ;│   SUBRUUTINES:   Hardware Testing On Entry          │
  305. ;└─────────────────────────────────────────────────────┘
  306. :HARDWARE_TEST
  307. ; === check mouse driver
  308. #if @mouse > 0 GOTO MSOK
  309. #text ^ 0 0 0
  310.  
  311. ~WARNING!!!
  312. ~There is no mouse driver installed.
  313. ~El-Fish requires a mouse.
  314. ~Please install a mouse and driver
  315. ~before starting El-Fish.
  316.  
  317. #
  318. :MSOK
  319.  
  320. ; === check cpu80386-card presence
  321. #if @is386 > 0 GOTO CPUOK
  322. #text ^ 0 0 0
  323.  
  324. ~WARNING!!!
  325. ~El-Fish requires a 386 or higher
  326. ~microprocessor to run.
  327. ~You cannot run El-Fish on this computer.
  328.  
  329. #
  330. #ABORT
  331. :CPUOK
  332.  
  333. ; === check VGA-card presence
  334. #if @isvga > 0 GOTO VGAOK
  335. #text ^ 0 0 0
  336.  
  337. ~WARNING!!!
  338. ~El-Fish requires VGA graphics to run.
  339. ~You cannot run El-Fish on this computer.
  340.  
  341. #
  342. #ABORT
  343. :VGAOK
  344.  
  345. ; === check minimal RAM-size
  346. #if @ramsize > 3600 GOTO RAMOK
  347. #text ^ 0 0 0
  348.  
  349. ~WARNING!!!
  350. ~El-Fish requires 4MB RAM to run.
  351. ~You cannot run El-Fish on this computer.
  352.  
  353. #
  354. #ABORT
  355. :RAMOK
  356.  
  357. ; === Check math-coprocessor presence
  358. ; #if @is87 > 0 GOTO OKi87
  359. ; :OKi87
  360.  
  361. #RETURN ;HARDWARE_TEST
  362.  
  363. ;┌─────────────────────────────────────────────────────┐
  364. ;│     Ask for Normal / HI-resolution mode choice      │
  365. ;└─────────────────────────────────────────────────────┘
  366. :ASKOFMODE
  367. #VIDEOTEST
  368. #if @reply ! 0 #RETURN;
  369.  
  370. #TEXT ^ 0 3 53
  371.  
  372. ~Sorry !
  373. ~Your computer doesn't support the
  374. ~640 x 480 screen resolution !!!
  375.  
  376. ~Installation will be aborted !
  377.  
  378. #
  379. #TEXTOFF
  380. #EXIT
  381. #RETURN
  382.  
  383. ;┌─────────────────────────────────────────────────────┐
  384. ;│       Correction of the AUTOEXEC.BAT - file         │
  385. ;└─────────────────────────────────────────────────────┘
  386. :MAKE_AUTOEXEC
  387. ; Specification of the suspicial keywords
  388. ;#KEYWORDS  "\r
  389. ;WARNING!!! El-Fish may not be compatible with the following\n\r
  390. ;  program(s) in your AUTOEXEC.BAT file:"
  391. ;  EMM386
  392. ;  386MAX
  393. ;#
  394. #AUTOEXEC  ^ ;<= not correct an AUTOEXEC.BAT file but search
  395.          ; for keywords only
  396. #IF @reply = 0 #RETURN
  397. @errors = @errors + 1;
  398. #TOFILE  "INSTALL.ERR"
  399.   WARNING!!! Your AUTOEXEC.BAT file has been modified.
  400.   Your original AUTOEXEC has been saved as AUTOEXEC.OLD
  401. #
  402. #IF @reply = 0 #RETURN
  403. #TOFILE  "INSTALL.ERR"
  404.     Your PATH statement is too long.
  405.     Please change it to have less then 128 characters.
  406. #
  407. #RETURN ;
  408.  
  409. ;┌─────────────────────────────────────────────────────┐
  410. ;│         Correction of the CONFIG.SYS - file         │
  411. ;└─────────────────────────────────────────────────────┘
  412. :MAKE_CONFIGSYS
  413. ; Specification of the suspicial keywords
  414. ;#KEYWORDS "\r
  415. ;WARNING!!! El-Fish may not be compatible with the following\n\r
  416. ;  program(s) in your CONFIG.SYS file:"
  417. ;  EMM386
  418. ;  386MAX
  419. ;#
  420.  
  421. #CONFIGSYS ^ 20 32
  422. #IF @reply = 0 #RETURN
  423.  
  424. #TEXT  0 3 53
  425.  
  426. ~For EL-FISH to run properly,
  427. ~your CONFIG.SYS file needs to be changed so
  428. ~that FILES = 20 and BUFFERS = 32.
  429. ~EL-FISH can make this change for you or
  430. ~you can change it manually later.
  431.  
  432. #
  433. #MENU 0 -1 25 [ ? ]
  434.   LET EL-FISH MAKE CHANGE
  435.      CHANGE MANUALLY
  436. #
  437. #TEXTOFF
  438. #IF @reply ! 1 GOTO NO_CONFIG_SYS
  439.  
  440. #CONFIGSYS 20 32
  441.  
  442. :NO_CONFIG_SYS
  443. #RETURN ;
  444.  
  445. ;┌─────────────────────────────────────────────────────┐
  446. ;│                   Read.ME file observing            │
  447. ;└─────────────────────────────────────────────────────┘
  448. :SEE_READ_ME_FILE
  449. #FILELIST 67 20 "READ.ME"
  450. #RETURN ;
  451.  
  452. ; ==== DONE-MESSAGE
  453. :DONE
  454.   #TEXT |800 0 0 39
  455.  
  456. ~D O N E
  457.  
  458.   #
  459. #RETURN  ;DONE
  460.  
  461. ; ==== MUST-ANSWER MESSAGE
  462. :MUST_ANSWER
  463. #BEEP
  464. #TEXT |2000 0 0 53
  465.  
  466. ~Please choose a card first!
  467.  
  468. #
  469. #RETURN  ;MUST_ANSWER
  470.  
  471. ; ┌─────────────────────────────────────────────────────┐
  472. ; │             Sound-card installation                 │
  473. ; └─────────────────────────────────────────────────────┘
  474. :CHOOSE_SOUNDCARD
  475.   #PROMPT INSTALLING THE SOUND DRIVER
  476.   #BEEP
  477.   #SOUNDTEST
  478.   #SOUNDCARD ^ SYSTEM
  479.   #IF @reply ! 0 GOTO SOUND_DONE
  480.   #GOSUB MUST_ANSWER
  481.   #GOTO CHOOSE_SOUNDCARD
  482.   #RETURN
  483.   :SOUND_DONE
  484.   @reply = 0;
  485. ;  #GOSUB DONE
  486. #RETURN  ;CHOOSE_SOUNDCARD
  487.  
  488. ; ┌─────────────────────────────────────────────────────┐
  489. ; │             Video-card installation                 │
  490. ; └─────────────────────────────────────────────────────┘
  491. :CHOOSE_VIDEOCARD
  492.   #IF @PACKMODE & 1 #RETURN
  493.   #VIDEOTEST
  494.   #IF @reply = 1 GOTO video_choice
  495.   #PROMPT Select your graphics card
  496.   #AIUTO KEYS:  - select; \"Enter\" - confirm; \"Escape\" - autodetect
  497.   #TEXT  0 9 69
  498. ~The Install program could not identify your graphics card.
  499. ~Above are some cards that may be compatible with yours.
  500.  
  501. ~If El-Fish doesn't work, run RECONFIG.EXE from
  502. ~the ELFISH directory of your hard disk, and try
  503. ~another card.
  504. ~You may have to experiment and try a few cards.
  505. ~If you choose VESA, you will have to install
  506. ~a VESA driver before running El-Fish.
  507.   #
  508.   :video_choice
  509.   #PROMPT
  510.  
  511.   #VIDEOCARD
  512.   #TEXTOFF
  513.   #IF @reply ! 0 GOTO VIDEO_DONE
  514.   #GOSUB MUST_ANSWER
  515.   #GOTO CHOOSE_VIDEOCARD
  516.   #RETURN
  517.   :VIDEO_DONE
  518.   #SETUP "ELFISH.INS"   ; write the ELFISH.INS user name
  519.   @reply = 0;
  520. ;  #GOSUB DONE
  521. #RETURN  ;CHOOSE_VIDEOCARD
  522.  
  523. ; =====================================
  524. ; ===   END of ELFISH INSTALLATION  ===
  525. ; =====================================
  526. #END
  527.